home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ivbsrc / kbdtype.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  2.0 KB  |  69 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Keyboard information"
  4.    ClientHeight    =   1035
  5.    ClientLeft      =   900
  6.    ClientTop       =   1425
  7.    ClientWidth     =   6840
  8.    Height          =   1440
  9.    Left            =   840
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   1035
  13.    ScaleWidth      =   6840
  14.    Top             =   1080
  15.    Width           =   6960
  16.    Begin TextBox Text1 
  17.       Height          =   855
  18.       Left            =   120
  19.       MultiLine       =   -1  'True
  20.       TabIndex        =   0
  21.       Top             =   120
  22.       Width           =   6615
  23.    End
  24. Declare Function GetKeyboardType Lib "Keyboard" (ByVal nTypeFlag As Integer) As Integer
  25. Const KB_TYPE = 0
  26. Const KB_SUBTYPE = 1
  27. Const KB_NBRFKEYS = 2
  28. Const KB_PCXT = 1
  29. Const KB_OLIVETTI = 2
  30. Const KB_PCAT = 3
  31. Const KB_ENH = 4
  32. Const KB_1050 = 5
  33. Const KB_9140 = 6
  34. Const KB_JAPANESE = 7
  35. Sub Form_Click ()
  36.   End
  37. End Sub
  38. Sub Form_Load ()
  39.   Form1.Show
  40.   KBType% = GetKeyboardType(KB_TYPE)
  41.   KBSubType% = GetKeyboardType(KB_SUBTYPE)
  42.   KBFKeys% = GetKeyboardType(KB_NBRFKEYS)
  43.   CRLF$ = Chr$(13) + Chr$(10)
  44.   T$ = "Keyboard Type = " + Str$(KBType%) + "->"
  45.   Select Case KBType%
  46.     Case 0
  47.       T$ = T$ + "Error calling keyboard function."
  48.     Case KB_PCXT
  49.       T$ = T$ + "IBM PC/XT, or compatible (83-key) keyboard"
  50.     Case KB_OLIVETTI
  51.       T$ = T$ + "Olivetti 'ICO' (102-key) keyboard"
  52.     Case KB_PCAT
  53.       T$ = T$ + "IBM AT (84-key) or similar keyboard"
  54.     Case KB_ENH
  55.       T$ = T$ + "IBM Enhanced (101- or 102-key) keyboard"
  56.     Case KB_1050
  57.       T$ = T$ + "Nokia 1050 and similar keyboards"
  58.     Case KB_9140
  59.       T$ = T$ + "Nokia 9140 and similar keyboards"
  60.     Case KB_JAPANESE
  61.       T$ = T$ + "Japanese keyboard"
  62.     Case Else
  63.       T$ = T$ + "Unknown keyboard type"
  64.   End Select
  65.   T$ = T$ + CRLF$ + "Subtype = " + Str$(KBSubType%) + CRLF$
  66.   T$ = T$ + "Number of function keys = " + Str$(KBFKeys%)
  67.   Text1.Text = T$
  68. End Sub
  69.